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DISK*TYPE MEMORY DUMP IO TAPE 00000100 
COMMENTS * TITLES 5500/4570 WARK XIV Sys TEM RELEASE ‘ 00000110 @ 
w aa a OOUGOTL 
* THIS MATERIAL iS PROPRIETARY To BURROUGHS CORPORATION * 00000112 
+ AND IS NOT TG BE REPRODUCED» USEDs UR DISCLOSED * 00000113 |@ 
* E WIT * 1°15 See ee 3 
* SATTTER ATT ET Cr uF ae PATENT DIVISION a * 00000115 ‘ 
* BURROUGHS CORPORATION» DETRUITs MICHIGAN 43232 A 00000116 |@ 
a + pnovory. 6 
* COPYRIGHT (C) 1965» 1971» 1972 BURROUGHS CORPORATION *« 00000318 7 
* AA759915 AA320206 AA386657 «3 00000319 1@ 
BEGIN anil _ zoo 9 
LABEL LOADs STARTS 000003006 "9 
SAVE PROCEDURE INITIALIZES FORWARDS 00000400 1@ 
AY B REINITIA #15 ee te tectc dette M rd, Laine OOOO OO i MANE 88 st 
REAL WRDESC>BSPsERASE »REWS 00000600 "3 
REAL JUNKs5» TIMER#16, ALTIMER#17, 108=19, OKADDR=@2013 00000700 J@ 
REAL LASTMSKWa?s LASTIUADRS@10$ J MODOC 0 oe 5 
REAL IOD=@25» MEMDISK]O0pse@z63 00000720 16 
REAL DMPAREADRS@35» MEMDISKADR=643; 00000730 \@ 
LABEL AROUND »DMPAREAIOD,ASTRAPsRETURNG _oov00740— i s—s—“—si—S "9 
LABEL TIMEX} 00000750 19 
REAL MF IDsF IDS 00000760 1@ 
R ADRS» DISKkBOTTOMeD #EOFPTR ___ 00000770 pa et a 
INTEGER ROWSBSP> ROWSIZESERASEs FILESIZESREn? 00000780 22 
BOOLEAN FIRSTIME»\ODUMPsTOTAPES 00060790 a® 
_ ARRAY #15 __ ooenogoo. | ee ae icdiglie Bae ae age et eon 24 
ARRAY HOR[*)3 00000810 2 
ARRAY INFOC#]3 00000850 2 @ 
___ ARRAY LOADBUTTON©tSJe pogo we i I 
QCTO441000401570421> & O1 20 00001000 . 
OCTOI57000000104411% % 02 24 00001100 |@ 
Eee 02110 C055, % 0 25 oo0ujz00 = 20 
OCT4155124500004425» % O04 23 00001300 1 
OCT0060013101600064* % 05 24 00001400 2 @ 
ee Att sae 0C6T4441010402530305r % 06 25 oo0ulsog. 3 
O0CT01000234443100D5» 2% C7 z6 00041600 
acTove2011441310055» % 06 27 00001700 1@ 
100660 1 RC | SEOOOUN BOO en tt At ah ee 38 
ecqoorseisaats (ose: % 10 31 00001900 a 
| OCT0076017441310055» % 1} 32 00002000 1@ 
—— : _0075140000047700200, 4% 42 33 00002100. a 
OCTO441100401004444» % 13 34 00002200 c 
UCTO25301042052/7405s % 14 35 00002300 «|@ 
OCT74¥50U51010024143 & 15 36 00002400 7 2 
ARRAY MESSAGEL33)¢ | 00003000 ‘ 
"WHICH UN"»0CT3163143700000000- %0 . 00003010 4@ 
COULDNT "DPWRITESTRO*"Y AGAING», so 82 On | fs 
"COULDNT "s"RKEAD*FOR"»"GET Ite ", 65 00063200 
"ABCDEF HJ" » "KLMNPRST", % 8 00003300 rtd 
A ",0e"MDUMP "9199365" )"1993650", %40 00003400 x 
76400" s"G4000"9"5 43% 9"5] 3000" 00> 00003500 ‘9 
ROT ENOU"#"GH, DISK "sMAREA IN My %20 00603510 | @ 
"OME MOR *."ONUMP ", co ae) 000 590 5] 
WNOT IN D"s"IRECTORY"s%e ", $25 00003530 5 
"UNT NOT "s"READY* "> S28 00003540 «| @ 
"OK TO DUT» MP AUXME"s "Me "5 %30 00003545 ! 
REAL MSG = MESSAGES in r 00003550 65 
SAVE REAL PROCEDURE RESULTS , 00003600 1@ 
BEGIN Be fo ah wirea ae ya Skt oe | 00003700 : 
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a a a, a , £ : nS 5 
3 B KN 5 & oh GS & 6 3 $e 


oor nr FF WwW HD = 


RESULT#PCINI,0O)3 
END? 
SAVE REAL PROCEDURE INVADOR; 
BEGIN TIMER¢ALTIMER: 
INVADDReRESULT3 


ISKADRs 


00003800 
0¢003900 
0000400 

00004100 
00004200 


TIMER?e I08 00004300 ss aha 


ENO INVADBR3s 00004400 
NAME RD3 00004500 
NTEGER OR PROGIN=+43 A000 
STREAM PROCEDURE MOVECNsMeF ROMs TOO)3 VALUE NeMeF ROMS 900047060 
BEGIN. SleFROMS OyeTOOs MCOS*32 WOS3 DS+32 wOS)3 OS*N WOS ENDS 00004800 
SAVE REAL PROCEDURE DOLTOCDESC,MASKIS VALUE DESC sMASK; | 090004900 ssi 
9 REAL OE SCsMASK} 00004910 
: BEGIN 00005000 
: ern DO REG NPCEDESC eT Uys 005100 
3 DO UNTIL CIe*#RESULTI403 00005200 
4 DOIO*ROLCTI.£(26%7) 00005300 
Pa ns Bo re ee UNTIL (PROCID AND MASK) =O) _OO005400 .. . 
6 ENDS 00005500 
q DEFINE IOC IO1IZ=NCTIOCIO1+5) #3 00005510 
A oe ae es OEP INE 2AR stents; SoMa ee a 
8 SAVE PROCEDURE SPQUTCWHICHIS VALUE WHICHS INTEGER WHICHS 00005600 
: BEGIN 00005700 
' CD UTE LO CWHICH INX MSG)80o, 2 OG BOO 
ee END} 00005900 
oa SAVE PROCEDURE NOTREADYCLUN)4 VALUE LUNG REAL LUNG 00005910 
ber rats ee BEGIN. eat aT ae ee ree 
: STREAMCACIF LUN<16 THEN "MT™ ELSE "OKs 009005930 
Pe Ne LF. LUNE16 THEN LUN ELSE LUN@48> 00005940 
a ao EM SG INK Be D*WMSG INK PHD, UU 005950 
i BEGIN STelLOc¢ As’ SI*S1+63 DSeecHRs 00005960 
STEMS NOST*©Sl4#1)4 DS¢CHh3 00005970 
SPOUT( 28)3 00005990 
END NOTREADYS 00006000 
A PROC R A v Ms ALU WH a nT “GER HICH? ; ee nated 
BEGIN 00906020 
SPOUTCWHICH)3 Q0000603¢ 
I NX @74U 40000000)s v06QO4 eater ee 
STREAMCBUFFER)D3 00906050 
BEGIN 00006060 
Diels DS*LIT"<"3 Sep ERS 00006070 
ui IF SCs * THEN BEGIN ST*SIT+13 GO Ls ENDS 00006080 
Xt IF SC NEQ ARROW THEN 00006090 
N 006 fiefs 3 fe: 
If SC NEQ %<" THEN DS*#CKR ELSE *BACKSPACE 00006110 
BEGIN 000064320 
NieDlels NEG HEA eDI"13 00006 0 _ 
END; 00006140 
GQ X3 00006150 
ENDS 00006160 =o, 
DS«CHR; | 00006170 
END3 00006180 
ND KEYINI i 009006190 ates 
DEF INE DR(OR1L»DR290R3)5 aE LE PGP DR3I#, 00006200 
DISKREADSDR#s DISKWRITESDISKIOS» 00006210 
READCREAD1 )SOISKIOCBYFFER(O),%5 2+DKAVORFREAD j Hs 000062020 _ 
SAVE PROCEDURE DISKIOCBUFF*SIZE*DISKADR)3 90006230 
VALUE. SIZEsO1SKAOR3 00006240 
REAL: BUFF eSIZEs0 00006250 
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BEGIN LABEL OUTS 00006260 
REAL NeDFeDISK3 00006270 e 
pie, STRE PF eOt 3 UBB Oey ntsei tates ieee Pee 
BEGIN : 00006290 
SI*LUC DISKADRS WCOI*DI<a)3 — : 00006300 |@ 
ee BUFF ODITS DS*8 DECH 06810 3 
END STREAM; 00006320 4 
DISK*P$ % LOCN OF DISK ADDRESS 00006330 - |@ 
occ lieee DFOTE OVID ESK I] ¢£5%4) THEN 72 6) Se prous 000 I40 6 
DISKeDISK &NFC324325] & STZECZ48131) @ 00006350 ? 
(CABS (SIZE )429) DIV 30), 275428693 00006360 /@ 
eee = _ opserisetre ee OOOO STO nose aha e ce ce 8 
UNTIL CN€N+1) 2 Sus 00006380 "9 
IF SIZE>0 THEN % WRITE 00006390 |@ 
Pann eet reg Oe pacer er oUF Reet ee Pe NCTA OZ TS RO i i POON UR ERIS Ae OOOuaagg oo ei 
SPOQUT(2)3 GO START; 00006410 13 
END3 00006420 1@ 
eo SPOUTS SE PONT PARSE ps neh Oo00643I9 19 
OUT? END DISKIO3 00006440 16 
SAVE- BOGLEAN PROCEDURE NOSOUUFILES 00006450 7 @ 
Se LG CO UB WAG cynics cenit oo a Se ee se ae "9 
INTEGER MAXROWSIZES 0000647) "9 
INTEGER TSUUNK3 00006480 21 @ 
poses : 31,52)5 DOC COU GO. ones" Ss ccets eaten ie od cae ia 21 
DISKBOTTOM = 2x( 00006500 2 
CS1,C6t1814Si,C24i24]) MOD MODULUS x MODULUS + 000065140 21@ 
Lehi eee Sey, eda le tae eee aa RIMET 07611 TCV 11-1 © PO ee One ee Eth tae A 4 
SCRAMBLE=S#»s MODULUS=13#5 00006530 y 
MATCHCMATCH1 »MATCH2)=(MATCHI EQV MATCHZ)=NOT FALSE SS 0000654Qq 2 @ 
DO BEGIN 00006560 2e 
DISKREADCHDRLO)» 60s ADRS)5 00006570 2] @ 
vO Le STEP 3 NTL be po RO 30 
BEGIN 00006590 a1 
IF MATCHOMFIOsHDREI}) THEN 00006600 | @ 
steSiteatee ore Tae ee ee, "IDsHORET + | HE —_ OO006610. 3 
BEGIN 00006620 a4 
ADRS€HORLI+2].033819)3 00006630 a @ 
i ett sein SK READCHDREQ]2 302ADKRS)S OHH 3¢ 
GU FOUND; 00006650 , fy 
ENDS 00006660 a @ 
Pear hg cache le ee Ee OOO GPO n ar ee 5 = 
END UNTIL CADRS#HDRL3iJ0(18?15]) = O53 00006680 40 
GO SPULT 00006690 «|@ 
FOUND! FOR Tet STEP 1 UNTIL 20 06 06006700 Pe eee: aa 
IF HDR(10+1) NEG O THEN MAXROWSIZE*MAXROWSIZE+13 00006710 GS geo = Ta gene Wome , 
IF CFILESIZE +MAXROWSIZExCROWSIZE*HURE 9] DIV 18))<64 THEN 00006720 4@ 
a BEGIN . 00006730 Jae 45 
ADRS*13 00006740 ag 
SPOIT! STREAM(MFIDs FIO» ADRS»DeMSG INX 23)3 00006750 1 @ 
BEGIN SleLOC MFIDi 00006760 ae 
2(S51*Sleis 00006770 4s 
FCF SCa" " THEN stesi+4 ELSE DS*CHR)3 00006780 ; : so @ 
DSeL ITs" 23 00006790 . 51 
OI*DI\13 AORS(JLMP CUT TU ExT) 00006800 : 
DS*17LIT" NUT IN DIRECTCRY"S 00006810 «| @ 
EXT3 DS*LIT ARROWS 00006820 Tic, __ 
END STREAMS 00006830 a 
7 SEGUTCESTADRER TD GO OUT: 00006840 «| @ 
_ENDS < oa ae 00006850 5 
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EOFPTRe=43 00066860 
IF FALSE THEN 00006870 @ 
0 NAGOODFILEeTRUF 3 a ee Ned Nh OOO OG RO as cnet ee te, 
’ “END NOGOODFILES 00006890 
2 SAVE PROCEDURE WRITECOELTA)3 VALUE DELTAS REAL DELTA; 00006900 
x ; 
4 LABEL IN® OUTS 00007100 
g GO INS 00007200 
. __.__DO BEGIN CelOCHSPIFIOCERASE ZS GZ RO : 
7 IN? IF CC*IOCDELTA INX WRDESC))=0 THEN GO OUTS * 90007400 
: IF Cof442i) AND NOT ROCII,£12%1]2 AND ROCTI.€2%1] = 00007500 
__IHEN GO OUT; || 90007600 
to END UNTIL CNEN+1) 2123 00007700 
er CelOCREW)3 00007800 
bs lteter I a At la ae inate ane ne eel OO GOO ari os aru esta cco ae 
y SPOUTC2)3 00008000 
@ B BUFFERC1IJ©MLMSG INX 1033 00008100 
ns ee FOR Te? STEP 1 UNTIL 20 00 BUFFER( TJeo, scons pth een eee, 
ie WRDESC,(8216)]*@0012053 % MAKE SURE ITS BINARY 00008300 
i WRITEC(4)3 00008400 
ieee ert WROD EOE oC Bh 4.0) 5.65155 SE SC eo oe es 
i . GB START} 00008420 
@r QUT! END WRITES : 00008500 
' AVE PROCEDUR : SORES , ; RE ee a ee 
im BEGIN 00008610 
@ F oe DISKADR=CORE3 00008620 
R t ei aaa teoaae et 
IF TOTAPE THEN WRITECDELTA) ELSE . 00008640 
BEGIN 00008650 
27 a ROWS ReEOFPTR+1) IWS ; Ss si akan earee sane 
pe CDISKADR*HDORL11+KOWI]+CEOFPTR MOD ROWSIZE)x183 00008670 
DISKWRITECBUFFERCDELTAJ+513*0ISKADR)3 00008680 
NDZ OO0OUB490 sss 
END DUMP3 00008700 
SAVE PROCEDURE DUMPAUXMEM(U)4 VALUE US REAL Us 00008710 
_BEGIN LABEL AUSsOUTS. OUR P ZO 
INTEGER N¥UUNK3 00008730 
IF NOT TOTAPE THEN 00008740 
IF FILESIZE“EGFPTR LSS 64 TREN GO UUT3 00008750 ae 
IF NOT FIRSTIME THEN 00008760 
BEGIN FIRSTIME*TRUES 00008770 
KEYINC30)3 00008780 
STREAM(T*O?BUFFER)S 00008790 
BEGIN SI*BUFFERS TALLYe1is IF 9C2"0" THEN 00008800 
EGIN SleSi+i; emKn ; 00008 ne 
TeTALLYs : 00008820 
END; 00008830 
_ NODUMP+P3 O0008R40 
END3 00008850 
IF NOOUMP THEN GO GUTS 00008860 
FOR CORE«O STEP B12 UNTIL 32767 OG i 00008870 
BEGIN NeO} 00008880 
00 IF SN ta INK. 2)8CU43220224286]8 00008890 
: ORE L181 3391518512083 38'10})20 THEN GO A 99008900 oes hen 
UNTIL (NeNS1) 2 253 00008910 
AuSt DUMPCOs,CORESULS#4325I]8CN 2 2590184784))5 00008920 
neers ENOs net Ae ee 
QUT$ END DUMPAUXMEMS = 00008940 
Saye cee aRIMI a 00009000 


(28) 
e@ es 
c 
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ry g + ° : 


ay 


WRDESC,(8%251+¢0;3 
Ta eee 34240 53 
eee aes 8 Je@ 


END TELE 
SAVE PROCEDURE LBL(B)s VALUE Bs BOOLEAN B3 


ci ENG TAN 9 a oe ee OWS TOO ee 


IF B THEN 
BEGIN 
eee ee |<, a ee 
ENDS 
MOVE(10s02MSG INX 10 »8UFFERD; 


WRTM3 
END TAPE LABELINGS 
——SAVE INTEGER PROCFOURE UNITs oo 
BEGIN LABEL TRYAGAIN} 


DO BEGIN 
—IRYAGAING NCO)}3 
STREAM(Qe*O2 BUFFERS LeINF() INX UsMeMSG INX 8 
BEGIN 


«Tj DS*s8l i" "s SyeyTs DSe"z0 WS; 
O1ets OL*D1+53 SleBurrers 
Lt IF 8¢ ae ARROW THEN BEGIN DS*CKRs GO 
#ITy +53 
IF Scene THEN 


saNQn 


ees ELSE TALLY «193 
ENDS GO AWAYS 


00009200 

00009300 
—---OOOQO¢HOO 

00009500 

00009600 


00049800 
00009810 


sete OU nar 


00009860 
00009900 


Seememeresemeers (1 41/6 6 Ki 6 0 | 0 ¢ Renssvnereoe:taeeeseeaaneg eee nen 


00010200 
00010300 

pie OOO) 10 0 ot oe oe 
00910500 
00010600 
3 00010800 
00010900 


00011010 
LF ENDS 00011020 


QO41030 0 


00011040 
00011050 


eS OOUTE O00 cick ele 


es OOO POGOe otto cote ees 


00011070 
00011080 


a NT a a a OOP TOGO oo Se 


IF SC="M" THEN SleSI+i ELSE GO AWAY 
IF SC="T" THEN SIeSr+#1 ELSE GO aways 


pe oS OCT SCR DC IHEN JUMP OUT 1G AWAY (8 2 OUI 300. 
TALLY@TALLY4#1> SleSre1); 00911310 
TALLY 03 00011320 

Peia bets Te Ves AY! Y pommemmmrerre.° 6/1 by Sp Ur 0] eee eee 
END STREAMS 00011500 
END UNTIL CIe©P)>03 0001160¢ 

Pome Sh 9) Cae at) eae ee emer 0 C8 Cee ee 

BEGIN 00911620 
OFCUeCIF I219 THEN 12 ELSE 63 00011630 

IF NOGOOOFILE THEN GO TRYAGAIN? 00011640 ree 
END 00011650 
END UNIT3 00011800 

SAVE PROCEDURE INITIALIZES 00011900 _ 
BEGIN x oo 00912000 
PC@110eSTS)3 & LEAVE ROOM FOR INTERRUPT STACK 00012100 

Soe MSGeMESSAGE INX #740060000000000; 00032200 _—C “3 
BUFFERec1 INX ABS(BUFFER))& 419023783 38:10)3 00012300 
INFO*CBUFFER(CS401)]& 2108%38210)5 00012310 
HDReCB ERLS61))¢ 6105339821013 00012320 
STACKe(BUFFERCO21I 14 F462385 1033 00012330 
FOR Teto STEP. 1 UNTIL 22.00 MET J* TIMERS 00012400 
GR te STeP 1 ub ~ 48 O00 ME TJeMELL +: * TIMER; 00032500 
RD*CML11193 00012600 
STREAMCS*+OeDePC,DKADDR))S BEGIN ST*Ss DSe8 OCT END3 00012700 

WRDOESC+BUFFER NX @300105000GU0003 00012710 bit heer 
MFIDeMCMSG INK 2374. % "OMEMORY .” 00012720 
FIDeMCMSG INX eals * “OpuMP. 00912730 
OF CUSCOs 2 DKA eas 0001274¢ 


00011100 
TALLY#]3 00011200 
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@ 
DISKREADCHORLO]»3090)s ® READ SEG ZERG 0001275y 
& DISKBOTTOMe#HDRESIJ=23 «© FUR SEARCHING BYPASS 00012760 
secre BNNs et OT ROS re ee 
1 LOAD $468 INITIALIZES GO STARTS % FIRST CELL ON H/L 00012900 
@” 2178 PCOsRTN)3 00013000 
3 M 3 oma N Ny y. Mi 000 0.0 
‘ 320! GO TO TIMEX; % SPU INTERRUPT 00013140 
@| 221% GO TO TIMEXS % LPA INTERRUPT 00013160 
6 3223 MEX S ; ‘RRRUP 13180 eee 
7 823% PCLsRTNDS % 10°, COMPLETE 00013200 
ee. $243 PC2sRTN)3 & 1092 COMPLETE 00013300 
9 : P¢3,RINDE £ lo-: PLETE ee 
fo 126% PC4s,RTN)3 é lOea COMPLETE 00013500 
er 128! GO TQ TIMEX 3 & DATACUM INTERRUPT 00013550 
2} 80S GO TO TYMEXS RETURN FREE ADDRESS Ded = 00033560 
ha $313 GO TO TIMEX; % RETURN FREE ADDRESS DF2 00013570 
4 132% P(@1200»02050)3 % MEMURY (#5000000000000000) 00013580 
m6 $49 Pei»sRIN)S IN ADRESS Py UU BOO 
8 % START OF SECOND BINARY CARD 00013605 
eo” 3@400% GO ARUUNDS 00013610 
he BSTRAP %@1013 STREAMCS*#@460,De820)3 DOO TS 6 LS sos ore ons 
a BEGIN 00013620 
@* SleS3 63(0S*63 WOS)5 | 00013625 
, otrsernest woke ENDS Le a aoe os en ef Sea ee te Oe OSG ep a hts Oh, 
pe GO TO PCEM[@20)})3 00013635 
6 RETURN 2@105! STREAM(S¢@2415DeH14)3 00013640 
ONS a eas a ok gt et le A et ee OU LOM a. 2 
Ps SleS3 DSe#4 woS; 00013650 
@ END} 00013655 
P| MCOJeEMEMDISKADRS 000 660 
pe PCOsSTFs0%STS)3 00013665 
eo, GO TO PCCMC@14)))3 00013670 
AROUND 23 MEMDIS Re ; ] CED er ee ae ene ae ee 
PCOseLASTMSKWsLOD)3 % PUT LASTMSKW IN @102 00033680 
eo STREAMCMINUS1©¢@412@0R*P( MEMDISKAUR)»*ZEROGO) 3 00013685 
PR AERP TON: >| 21 9 i Maen erent re eee Dee I EN NS nn a EO AE 0 61 2. ls en 
SleLUC MINU313 DL©ADR3S US*8 ADDS 00013695 
@ SI*#ZEROs DS*#30 WOS} 00013700 
¢LUC MINUSIs DIi*D[ “63 % MSKA UL: de eeneeeas 
SKIP 5 DBs DOS*SETS % SET SUB=PROGRAM 00013710 
6» ENDS 00013715 
MCO@S3)¢PCXCH) 00013720 
é MC@54]emMl@21]3 00013725 
@ | TQD*P( .DMPAREAION» LOD) 00013730 
GO TO PCEMC 8243793 00013740 
@ | DMPAREAIODS#% @0140000000100043 & 1 SEG DISK WRITE TO DMPAREA/DISK 00013745 
TAR * § &F ACK» 5! } 3 00013750 
IF TOTAPECUNIT LSS 16 THEN 00013760 
® BEGIN 00013770 
; BSP+(WROESCEWROESCAICIF4474) 415188391217 )3 00013800 
REWeCERASE*WROESCRIC18847219) GIL 228473495 00914000 
Oo; IF DOLOCREWs1)ef4581). THEN ® UNIT NOT ROY 00014050 
2 Z Jigooo 
NCTREADYCREW.0C324))3 00014070 
oO} GO START} 00014080 
' NDS ee 6 fy Ve fs me 
LOLCFALSE)3 00014100 
@ | END} 00014410 
3 ARAN EO 000148200 
e 
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. oS a 5 TA wat » 3 
& i & h Gg 3 5 6 


DUMP(0%0)3 
READ(17)3 


READ(34)3 
“DUMP (421024)3 
5 


READC31)3 MOVECO*291624s8UFFERL 391 


J)3 % MOD OFFSET @140 


00014300 
00014400 e 
a OOM IG oe x es 

00014600 1 
00044700 1@ 


00014900 : 
DUMP (691536); 00015000 |@ 
FOR CORE+2048 STEP UNTI 584 UO 000 OO fs stent on - 
BEGIN 00015200 7 
MOVE (O»8sCORE"96*3UFFERE11)3 00015300 7 1@ 
DUMPLOs COR 00015400 : 
END3 00015500 he 
CORE+4C963 00015600 |@ 
- ’ i 5 12 
DO BEGIN MCVECOs 8s COREsBUFFERC1))3 00015700 . i 
TF INVADDR THEN CORE*=CORE3 00015800 s@ 
A 15] 
IF CORE<O THEN CQRE*3564*CORES 00016000 ie 
ENO UNTIL (CCORE*CORE+512),016315)3 00016100 hd 
) f : HE I ; ‘onene 6 ieee a eee Rh ole hs an sah 8 18 
BEGIN 00016120 — ig 
WROESC, [881014203 00016140 | 1 @ 
Ss. RITE(S13 HOU OP GN SOs 20 oo 2 eet Se ara a idle ee ee ea aq 
WROESC, (C8210) «5133 00016160 2 
ENDS 00016170 hd 
ect ea | ; BLO Lo bi = eco ev cP et ec 24 
IF PCRRR)ef3091) THEN DUMPAUXMEM(B)3 00016190 29 
IF TOTAPE THEN =~ 00016200 2 @ 
: Ai 0.0 OE a ht alan ge eh 7 
LBELCTRUE)3 00016220 a 
PCIOCREW)»DEL)s 00016230 a 
sea aa rt i a a oO i eel ne es ee ee Oe ee " 
BEGIN : 22 00016260 y 
HORC1]+@01025010250001223 & (22533) 00016270 \@ 
eEOFPTR: | 
DISKWRITECHDRL1]»30-ADKS)3 00016290 é 
END} 00016300 3 shed 
STREAMCACLOADBHUTTQO 33°45] ,D¢16 SBEGIN Slea3 00916400 Fe eee ee Se AY Bey Reaeeee ieee ee 36 
DI«Ds DS¢15 WOS END} 00016450 ; id 
P(O»STSs0*STF) 00016500 @ 
0 TO LOAD 000164600 ee 7 
END OF PROGRAM, 00016700 # 
3% CODES INTRINSIC NUMBERS@32 WF 00014600 T 90000 41 
20 0000000000000000)x2A40 REA K 3% 44 
: : : . 4: 
a@ 
x 
46 
7] 
48 
ie 
so @ 
5] 
5. 
s| @ 
lois 2 os neat a 5. 
5! 
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LABEI OOQOOOOOOPRINTEROOI75SU98CC EXECUTE CHYECT/READSEILE SOURCEFILE=SYMBGL/MEMUUMPZENDe OBJECT /READ 


he ee A a ; ——=+ 

7 

fe 

be Sd tees oo Sdn 8 GBT alt Ns Da eR Er ee ee ee SE LP BO 
20 

1 


Aum S 


¢ 
‘3 
, nc Nn ane een nn 
B5) 
86) 
» ft a i 
38 
bg 
40 a a as iss aaa 
41 
2 
: = 
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(8 
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